home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 189 / 189.d81 / b.lost love 1 / b.080d / b.a7ae (.txt)
Encoding:
Commodore BASIC  |  2000-01-01  |  49.1 KB  |  120 lines
  1. 8 poke56,56:clr:poke53371,0:poke788,49:tq=ti
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 poke53281,0:poke53280,0:print"[147]":gosub60000
  4. 28 goto35
  5. 30 sys57812"lost mouse 2.1",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  6. 32 sys57812"lost font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  7. 34 sys57812"lost sid",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  8. 35 ifti<tq+150then35
  9. 36 sys49615
  10. 38 d%(1)=74
  11. 40 fori=1to8
  12. 42 readf$(i),n$(i)
  13. 44 sys57812f$(i),dv,0:poke780,0:poke781,0:poke782,d%(i):sys65493
  14. 46 d%(i+1)=peek(175)+1:e(i)=peek(174)+256*peek(175)
  15. 48 next
  16. 50 data"kissing her.mus","who's kissing her"
  17. 51 data"ill get by.mus","i'll get by"
  18. 52 data"these days.mus","one of these days"
  19. 53 data"you've gone.mus","after you've gone"
  20. 54 data"stole my gal.mus","somebody stole my gal"
  21. 55 data"sigma chi.mus","sweetheart of sigma"
  22. 56 data"moonlightbay.mus","moonlight bay"
  23. 57 data"little annie.mus","little annie rooney"
  24. 64 ml=64*256:mv=ml+156:v=53248
  25. 66 pokemv+1,158
  26. 68 pokev+21,0:sysml:sysml+6,14*64
  27. 70 print"[147]":poke53272,31:sysml+126,0,38,0,24,254,255,10,7
  28. 78 sysml+30,3,36,2,9,255,9
  29. 80 sysml+30,2,35,1,8,160,7+16
  30. 88 print"[154]";
  31. 90 sysml+27,2,"loadstar proudly presents
  32. 92 [153]"open";
  33. 94 [158]ml[170]27,3,"corky's empathic
  34. 96 sysml+27,4,"[158]s o n g s   o f  l o s t
  35. 100 [158]ml[170]12,6,5,"  len   chr$(NULL)(NULL)left$ (NULL)  (NULL) (NULL)(NULL)(NULL)   (NULL)(NULL)(NULL)
  36. 102 sysml+12,6,6,"  [196]   [203]  [204] [187]  [172] [218][193]     [213]
  37. 104 [158]ml[170]12,6,7,"  valascasc mid$(NULL)(NULL)right$  (NULL)(NULL)  (NULL)(NULL)(NULL)   (NULL)(NULL)(NULL)   "
  38. 112 [158]ml[170]39,160
  39. 120 [158]ml[170]30,3,26,12,23,255,9
  40. 122 [158]ml[170]30,2,25,11,22,160,10[170]16
  41. 130 [158]ml[170]30,29,36,12,23,255,9
  42. 132 [158]ml[170]30,28,35,11,22,160,13[170]16
  43. 140 [158]ml[170]12,30,12,"listplaycmdcmdcmdcmdsongcmdcmdcmdcmdcmdcmd-tantantantantantan<listcmdcmdcmdcmdcmdcmdplaycmdcmdcmdcmdall"
  44. 142 [158]ml[170]12,28,17,"-tantantantantantan<cmdcmdcmdcmdcmdcmdlistsongcmdcmdcmdcmdinfocmdcmdcmdcmdcmdcmd-tantantantantantan<cmdcmdcmdcmdcmdcmdlistquit"
  45. 150 [158]ml[170]15,1,29,34,12,13
  46. 152 [158]ml[170]15,2,29,34,15,16
  47. 154 [158]ml[170]15,3,29,34,18,19
  48. 156 [158]ml[170]15,4,29,34,21,21
  49. 160 [153]"print#";:[129]i[178]1[164]8
  50. 162 [158]ml[170]12,4,12[170]i,n$(i)
  51. 164 [158]ml[170]15,4[170]i,3,24,12[170]i,12[170]i
  52. 166 [130]
  53. 200 [158]ml[170]9
  54. 204 [139]rg%[167][158]ml[170]36,rg%,255,1:[158]ml[170]24,2:[158]ml[170]36,rg%,255,12
  55. 210 [139]cr%[167]230
  56. 220 [137]200
  57. 230 [139]cr%[178]1[167][141]300:[137]200 [143] play
  58. 240 [139]cr%[178]2[167][141]400:[137]200:[143] play all
  59. 250 [139]cr%[178]3[167][141]500:[137]200:[143] info
  60. 260 [139]cr%[178]4[167][158]ml[170]3:[151]49152,0:[158]49897:[158]49935:[153]"load":[137]40000:[143] quit
  61. 268 g[178]cr%
  62. 270 [158]ml[170]30,2,25,11,22,160,10[170]16
  63. 272 [129]i[178]1[164]8
  64. 274 [158]ml[170]12,4,12[170]i,n$(i)
  65. 276 [130]
  66. 280 [158]ml[170]36,g,255,14[170]128
  67. 290 [137]200
  68. 300 [139]g[178]0[167][142]
  69. 302 p[178]1:[141]500:p[178]0
  70. 310 [151]781,0:[151]782,d%(g[171]4)
  71. 320 [158]49664:[151]49152,7
  72. 330 [158]ml[170]9
  73. 332 [139][194](49152)[178]0[167]350
  74. 340 [139]l2%[178]0[167]330
  75. 350 [151]49152,0:[158]49897
  76. 352 [158]ml[170]42,168
  77. 360 [142]
  78. 400 [129]g[178]5[164]12
  79. 410 [141]300
  80. 420 [130]
  81. 430 [142]
  82. 500 [139](g[179]1)[176](g[177]12)[167][142]
  83. 502 [158]ml[170]39,168:[158]ml[170]42,160
  84. 510 [158]ml[170]30,2,37,13,21,255,9
  85. 520 [158]ml[170]30,1,36,12,20,255,13[170]16
  86. 530 [151]214,13:[153]:[153][163]2);
  87. 540 h[178]e(g[171]4)
  88. 550 [129]i[178]h[164]h[171]200[169][171]1
  89. 560 [139][194](i)[178]1[167]s[178]i:i[178]h[171]200
  90. 570 [130]
  91. 580 [129]i[178]2[164]200:[139][194](i[170]s)[178]0[167]i[178]200:[137]590
  92. 582 [153][199]([194](i[170]s));:[139][194](i[170]s)[178]13[167][153]"";
  93. 590 [130]
  94. 592 [139]p[167][142]
  95. 600 [158]ml[170]9
  96. 610 [139]l2%[178]0[167]600
  97. 620 [158]ml[170]42,168
  98. 630 [142]
  99. 999 [137]999
  100. 10000 d[178][194](186):n$[178]"0:lost1.b":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  101. 40000 [151]53269,0
  102. 40002 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  103. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  104. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  105. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  106. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  107. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  108. 40060 [130]:[142]
  109. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  110. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  111. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  112. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  113. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]8:[153]z$:[130]
  114. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  115. 60030 z$(0)[178]" (NULL) (NULL) (NULL) val   (NULL) (NULL) (NULL) (NULL)   (NULL) (NULL) (NULL) chr$ (NULL)   right$
  116. 60040 z$(2)="by [195]orky [195]ochran
  117. 60050 z$(4)[178]"(c) 2000 by mid$ & asc (NULL)ublishing, right$nc."
  118. 60080 z$(6)[178]"1-318-868-8727
  119. 60090 poke214,12:print:fori=0to6:printtab(20-(len(z$(i))/2))""z$(i):next:return
  120.